The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Guide.dxr/00241_control handlers.ls

Text File | 1998-11-19 | 5.8 KB | 208 lines

global gsbmouseupslist, gsbmousedownslist, sbcontentsprite, sbhiliterect, scrollpos, scrolllinesize, barsprite, leftofscroll, rightofscroll, totalscroll, topofscroll, botofscroll, maxscroll, lightsprite, objectpict

on initsbcontrols
  set gsbmousedownslist to []
  set gsbmouseupslist to []
  setAt(gsbmouseupslist, sbhiliterect, 0)
  setAt(gsbmousedownslist, sbhiliterect, 0)
end

on addsbcontrol channel, chotspots, cactions, whichway
  if not listp(chotspots) or not listp(cactions) then
    return #badcontrol
  end if
  if count(chotspots) <> count(cactions) then
    return #badcontrol
  end if
  if whichway = #down then
    setAt(gsbmousedownslist, channel, [chotspots, cactions])
  else
    setAt(gsbmouseupslist, channel, [chotspots, cactions])
  end if
end

on deletesbcontrol channel, whichway
  if (whichway = #up) or (whichway = #both) then
    setAt(gsbmouseupslist, channel, 0)
  end if
  if (whichway = #down) or (whichway = #both) then
    setAt(gsbmousedownslist, channel, 0)
  end if
end

on hitsbcontrol whichway
  set me to the clickOn
  set hitpoint to point(the mouseH - the left of sprite me, the mouseV - the top of sprite me)
  if whichway = #down then
    set controlslist to gsbmousedownslist
    puppetSound(2, "Button")
  else
    set controlslist to gsbmouseupslist
  end if
  set mycontrol to getAt(controlslist, me)
  if not listp(mycontrol) then
    return #notcontrol
  end if
  if count(mycontrol) < 2 then
    return #notcontrol
  end if
  set hitlist to getAt(mycontrol, 1)
  if not listp(hitlist) then
    return #notcontrol
  end if
  set actionlist to getAt(mycontrol, 2)
  if not listp(actionlist) then
    return #notcontrol
  end if
  if (count(actionlist) <> count(hitlist)) or (count(hitlist) = 0) then
    return #badcontrol
  end if
  repeat with i = 1 to count(hitlist)
    if inside(hitpoint, getAt(hitlist, i)) then
      puppetSprite(sbhiliterect, 0)
      do(getAt(actionlist, i))
      exit repeat
    end if
  end repeat
end

on checksbrollover whichway
  set noroll to 1
  repeat with i = sbhiliterect - 1 down to 1
    if rollOver(i) then
      if (listp(getAt(gsbmouseupslist, i)) and ((whichway = #up) or (whichway = #both))) or (listp(getAt(gsbmousedownslist, i)) and ((whichway = #down) or (whichway = #both))) then
        hilitesbcontrol(i, whichway)
        set noroll to 0
        exit repeat
      end if
    end if
  end repeat
  if noroll then
    set the locH of sprite sbhiliterect to -1000
    set the visible of sprite objectpict to 0
    set the visible of sprite lightsprite to 0
  end if
end

on hilitesbcontrol contnum, whichway
  set norect to 1
  if (whichway = #up) or (whichway = #both) then
    set upcont to getAt(gsbmouseupslist, contnum)
    if not listp(upcont) then
      set uprects to []
    end if
    if count(upcont) < 2 then
      set uprects to []
    end if
    if voidp(uprects) then
      set uprects to getAt(upcont, 1)
    else
      nothing()
    end if
  else
    set uprects to []
  end if
  if (whichway = #down) or (whichway = #both) then
    set downcont to getAt(gsbmousedownslist, contnum)
    if not listp(downcont) then
      set downrects to []
    end if
    if count(downcont) < 2 then
      set downrects to []
    end if
    if voidp(downrects) then
      set downrects to getAt(downcont, 1)
    else
      nothing()
    end if
  else
    set downrects to []
  end if
  set rectlist to combo(uprects, downrects)
  set hoff to the left of sprite contnum
  set voff to the top of sprite contnum
  set where to point(the mouseH - hoff, the mouseV - voff)
  set mouseposition to point(the mouseH, the mouseV)
  repeat with r in rectlist
    if inside(where, r) then
      set order to getOne(rectlist, r)
      set smallpict to "B" & char 2 to 7 of word 2 of getAt(actslist, order) & "1"
      if the number of member smallpict > 0 then
        set the visible of sprite objectpict to 1
        set the visible of sprite lightsprite to 1
        updateStage()
        swapmember(objectpict, smallpict, 1)
      else
        set the visible of sprite objectpict to 0
        set the visible of sprite lightsprite to 0
      end if
      spriteBox(sbhiliterect, getAt(r, 1) + hoff, getAt(r, 2) + voff, getAt(r, 3) + hoff, getAt(r, 4) + voff)
      updateStage()
      set norect to 0
      exit repeat
    end if
  end repeat
  if norect or not rollOver(sbcontentsprite) then
    set the locH of sprite sbhiliterect to -1000
    set the visible of sprite objectpict to 0
    set the visible of sprite lightsprite to 0
    updateStage()
  end if
end

on combo alist, anotherlist
  set rectlist to []
  repeat with r in alist
    if ilk(r, #rect) then
      add(rectlist, r)
    end if
  end repeat
  repeat with r in anotherlist
    if ilk(r, #rect) then
      add(rectlist, r)
    end if
  end repeat
  return rectlist
end

on initscrollv
  set scrollpos to 1
  set scrolllinesize to 19
  set barsprite to 108
  set sbcontentsprite to 109
  set topofscroll to the top of sprite barsprite - 1
  set botofscroll to the bottom of sprite barsprite
  set totalscroll to the height of member the memberNum of sprite sbcontentsprite of castLib "Guide"
  set maxscroll to totalscroll - (botofscroll - topofscroll)
  setscrollboxv()
end

on setscrollboxv
  set the locV of sprite sbcontentsprite to topofscroll - scrollpos
  updateStage()
end

on scrolldown
  set scrollpos to scrollpos + scrolllinesize
  if scrollpos > maxscroll then
    set scrollpos to maxscroll
  else
    set arrowcursor to the number of member "down"
    set arrowcursormask to the number of member "downMask"
    cursor([arrowcursor, arrowcursormask])
  end if
  setscrollboxv()
end

on scrollup
  set scrollpos to scrollpos - scrolllinesize
  if scrollpos < 1 then
    set scrollpos to 1
  else
    set arrowcursor to the number of member "up"
    set arrowcursormask to the number of member "upMask"
    cursor([arrowcursor, arrowcursormask])
  end if
  setscrollboxv()
end